home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / sirius50.arc / SIR050S.ARC / SIRECHO.SIR < prev    next >
Text File  |  1987-05-19  |  529b  |  18 lines
  1.  
  2. ;                    Sirius script file SIRECHO.SIR
  3. ;                    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  4. ;    Append messages #2+ through #101 of Echomail SIRIUS conference
  5. ;                      to file D:\CNF\SIRECHO.TXT
  6. ;                            and kill them.
  7.  
  8. (View (Xpertise (High))
  9.  View (Continuous)
  10.  Area (Known as ('SIRIUS'))
  11.  View (Until ('SEEN-BY: '))
  12.  1  Next
  13.  ! (While (@Msg# LE 101))
  14.     Move (Flat file ('D:\CNF\SIRECHO.TXT'  'y'))
  15.     Next
  16.     ! (End)
  17.  Out ('Script SIRECHO.SIR complete.'))
  18.